unit PSysDic;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dRoot, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
  dxSkinCoffee, dxSkinDarkSide, dxSkinGlassOceans, dxSkiniMaginary,
  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
  dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  dxSkinPumpkin, dxSkinSilver, dxSkinStardust, dxSkinSummer2008,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, cxControls,
  cxSplitter, ComCtrls, dxtree, dxdbtree, ToolWin, DB, StdCtrls, Buttons,
  ExtCtrls, cxStyles, dxSkinscxPCPainter, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, IBCustomDataSet,
  IBUpdateSQL, IBQuery, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid;

type
  TfmPSysDic = class(TdlgRoot)
    Panel2: TPanel;
    tbTop: TToolBar;
    tbInsert: TToolButton;
    tbInsertChild: TToolButton;
    tbDelete: TToolButton;
    tbEdit: TToolButton;
    ToolButton3: TToolButton;
    dbTW: TdxDBTreeView;
    cxSplitter1: TcxSplitter;
    Panel3: TPanel;
    Label1: TLabel;
    Panel4: TPanel;
    Edit1: TEdit;
    dbgClients: TcxGrid;
    dbgClientsDBTableView1: TcxGridDBTableView;
    dbgClientsDBTableView1Column1: TcxGridDBColumn;
    dbgClientsDBTableView1PP: TcxGridDBColumn;
    dbgClientsDBTableView1PDATEBIRTH: TcxGridDBColumn;
    dbgClientsDBTableView1SDNAME: TcxGridDBColumn;
    dbgClientsLevel1: TcxGridLevel;
    qPeople: TIBQuery;
    qPeoplePID: TIntegerField;
    qPeoplePLASTNAME: TIBStringField;
    qPeoplePNAME: TIBStringField;
    qPeoplePPATRONYMIC: TIBStringField;
    qPeoplePDATEBIRTH: TDateField;
    qPeoplePNOTE: TIBStringField;
    qPeoplePTIMEENTER: TDateTimeField;
    qPeoplePTIMEEDIT: TDateTimeField;
    qPeoplePUSERENTER: TIBStringField;
    qPeoplePUSEREDIT: TIBStringField;
    qPeoplePISDELETE: TIntegerField;
    qPeoplePP: TIBStringField;
    qPeopleVOZRAST: TIBStringField;
    qPeopleFIO: TIBStringField;
    qPeoplePSEX: TIntegerField;
    qPeoplePSTEP: TIntegerField;
    qPeopleSDNAME: TIBStringField;
    quPeople: TIBUpdateSQL;
    qChekChild: TIBQuery;
    quSD: TIBUpdateSQL;
    qSD: TIBQuery;
    qSDSDID: TIntegerField;
    qSDSDPARID: TIntegerField;
    qSDSDNAME: TIBStringField;
    qSDSDISDELETE: TIntegerField;
    dsSD: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmPSysDic: TfmPSysDic;

implementation

{$R *.dfm}

end.
